2 I=9:GOSUB6000 4 PRINT"[147][142][150] [175] 5 [153]"THEN(null)FN(null) FN FN (null)(null)THEN(null)FN LEFT$ (null) USR(null) (null)FN(null)THENANDSGN(null) USR(null) (null)(null)"; 6 [153]"THEN FN(null) (null) (null) (null)(null)THEN FN LEFT$ (null) FN FNFN(null)THEN(null) (null) FN THENFN"; 7 [153]" TAB( TAB( TAB( 10 PRINT,"[155]WRITTEN FOR THE TRS-80 11 [153]," BY 12 PRINT,"[150]FURMAN H. SMITH 20 [153],"LISTADAPTED FOR THE 64 21 PRINT," BY 22 [153],"DEFSTEVEN C. DARNOLD 23 PRINT,"P.O. BOX 201 24 [153],"ALEXANDRA, NEW ZEALAND 25 FORI=1TO4000:NEXT 100 POKE788,52 105 GOSUB1010:GOSUB705 110 INPUT"[150][193]RE YOU THE ONLY PERSON PLAYING";A$ 115 P=1:A$=LEFT$(A$,1):IFA$="Y"THENP9=1:GOTO140 120 IFA$<>"N"THENPRINT"[208]LEASE TYPE YES[150] OR NO":GOTO110 130 INPUT"[150][200]OW MANY OF YOU WILL BE PLAYING[160][160][160][157][157][157]";A$:P9=VAL(A$):IFP9<1THEN130 140 IFP9>5THENPRINT"[155][211]ORRY, THAT IS TOO MANY.":GOTO130 145 I=1:INPUT"[215]HAT IS YOUR NAME[160][160][160][157][157][157]";P$(P):GOSUB146:GOTO150 146 J=ASC(LEFT$(P$(I),1)):IFJ<99THENP$(I)=CHR$(J+128)+MID$(P$(I),2) 147 FORJ=1TOLEN(P$(I)):IFMID$(P$(I),J,1)=" "THENP$(I)=LEFT$(P$(I),J-1):RETURN 148 NEXT:RETURN 150 IFI=P9THEN165 155 I=I+1:PRINT"[208]LEASE GIVE ME THE NAME OF PLAYER"I 160 INPUT"[160][160][160][160][160][160][157][157][157]";P$(I):GOSUB146:GOTO150 165 IFP9=1THENT2=T9:GOTO205 199 T2=4 205 PRINT"[147] 210 I[178][197]([202]("091506010902091310",R[172]2[171]1,2)):[141]6000 211 W4(R)[178]1:I[178]1[170][181]((R[171]1)[173]R8):J[178]R[171]R8[172](I[171]1) 215 [145]I[141]220,225,230:[137]235 220 [145]J[137]2010,2020,2030 225 [145]J[137]2040,2050,2060 230 [145]J[137]2070,2080,2090 235 [129]M[178]1[164]M9 240 [139]L(M)[178]R[167][141]265 245 [130]M 250 [139][187](1)[177]T[172](2[171]W4(3))[173](7[172]T9)[167]260 255 [153]:[153]"ATN VOICE SAYS: << (null)YPE LEFT$VAL(null)(null) IF YOU 256 PRINT"NEED HELP. >> 260 [137]305 265 [153]:I[178]1[170][181]((M[171]1)[173]8):J[178]M[171]8[172](I[171]1) 270 [145]I[137]275,280,285,290 275 [145]J[137]2410,2420,2430,2440,2450,2460,2470,2480 280 [145]J[137]2490,2500,2510,2520,2530,2540,2550,2560 285 [145]J[137]2570,2580,2590,2600,2610,2620,2630,2640 290 [145]J[137]2650 305 [153][202]("DEFLISTVERIFYLISTFORDEFPOKE",R,1); 306 [153]""Q$(1[170]Q9[172][187](1));:[139][187](1)[177].5[167][153]", ";P$(P); 315 [153]"?WAIT":[129]I[178]1[164]39:[153]" ";:[130]:[129]I[178]1[164]36:[153]"CMD";:[130]:[141]799:[153] 325 [129]I[178]1[164]I9:[139][202](A$,I,1)[179][177]" "[167][130] 330 V$[178][200](A$,I[171]1):[139]I[178]I9[170]1[167]N$[178]V$:[137]345 335 [129]J[178]I9[164]I[169][171]1:[139][202](A$,J,1)[179][177]" "[167][130] 340 N$[178][201](A$,I9[171]J) 345 V[178]0:N[178]0 350 [129]I[178]1[164]V9:[139]V$(I)[178]V$[167]V[178]I:[137]355 351 [130]I 355 [129]I[178]1[164]N9:[139]N$(I)[178]N$[167]N[178]I:[137]357 356 [130]I 357 [139]0[179]N[175]N[179]9[167]405 360 [139]V[172]N[177]0[176](V[170]N[177]0[175]V$[178]N$)[167]380 361 [137]3505 365 [153]"RIGHT$ DON'T UNDERSTAND.":[137]305 380 [139]N[179]29[167]405 381 [139]N[178]29[167]N[178]11:[137]405 382 N[178]N[171]7 405 [139]N[177]4[175]N[179]9[167]N[178]N[171]4 410 [139]N[177]4[176]N[178]0[167]435 411 [145]N[137]412,416,420,424 412 W1(R)[178][182](W1(R)):[139]W1(R)[178]1[167]430 414 [139]W1(R)[178]2[167]R[178]R[171]R8:[137]605 415 [137]505 416 W1(R[170]R8)[178][182](W1(R[170]R8)):[139]W1(R[170]R8)[178]1[167]430 418 [139]W1(R[170]R8)[178]2[167]R[178]R[170]R8:[137]605 419 [137]505 420 W2(R[170]1)[178][182](W2(R[170]1)):[139]W2(R[170]1)[178]1[167]430 422 [139]W2(R[170]1)[178]2[167]R[178]R[170]1:[137]605 423 [137]505 424 W2(R)[178][182](W2(R)):[139]W2(R)[178]1[167]430 426 [139]W2(R)[178]2[167]R[178]R[171]1:[137]605 427 [137]505 430 [153]"(null)OU CAN'T WALK THROUGH WALLS.":[137]305 435 [139]N[179][177]12[175]N[179][177]22[167][141]4015:[137]440 436 [141]4030 440 [139](V[179][178]4[176]V[178]13)[175]N[178]22[167]5410 445 [139]M[179][177]0[176]V[178]0[176]V[177]8[167]455 450 [153]"(null)HAT'S NOT POSSIBLE NOW, "P$(P);".":[137]305 455 [139]M[178]0[176]V[178]15[176]N[178]9[167]505 460 [139]4[179]V[175]V[179]9[167]475 465 [139]L(M)[177][171]1[175]L(M)[179][177]R[167]470 466 [137]475 470 [153]"RIGHT$T SEEMS THAT THE "N$" ISN'T THERE.":[137]305 475 [139]V[177]8[167]505 476 [139]V[179]5[167]V[178]1:[137]480 477 V[178]5 480 [139]N[178]28[167][153]"(null)HE (null)ATN(null)LENLEFT$ STAYS ON YOUR WRIST.":[137]305 485 [139]N[178]10[176]N[178]23[176]N[178]24[167]5980 490 [145](V[170]3)[173]4[141]4045,4100 495 [137]235 505 [139]N[179][178]8[175]N[177]0[167]5015 506 [139]N[178]9[175]V[179]9[167]5980 510 [139]N[178]26[176]N[178]27[167][145](N[171]25)[141]5105,5155:[137]305 512 [139]V[178]0[167]365 515 [139]V[179][178]14[167]J[178]V[171]8:[137]520 516 J[178]V[171]14:[137]525 520 [145]J[137]5205,5255,5355,5355,5405,5605 525 [145]J[137]5705,5755,5780,5805,5980,205 605 T[178]T[170]1:T1[178]T1[170]1 610 [139]T[179]T9[167]625 615 [153]:[153]"(null)IME IS UP TANTAN THE"T9"SCOOTS HAVE PASSED." 620 [146]198,1:[128] 625 [139]W1(R)[178][171]1[167]W1(R)[178]1 630 [139]W1(R[170]R8)[178][171]1[167]W1(R[170]R8)[178]1 635 [139]W2(R)[178][171]1[167]W2(R)[178]1 640 [139]W2(R[170]1)[178][171]1[167]W2(R[170]1)[178]1 645 [139]T1[179][178]T2[167]205 646 T1[178]0:[139]P[179]P9[167]P[178]P[170]1:[137]650 647 P[178]1 650 [153]"LOADRIGHT$T'S "P$(P)"'S TURN NOW.":[153]:[146]198,1:[137]210 705 [153]"LOAD(null)ET'S PRETEND THAT YOU ARE IN AN 715 PRINT"ENCHANTED HOUSE. [217]OU SHOULD USE ONE OR 720 [153]"TWO WORDS TO TELL ME WHAT YOU WANT TO 725 PRINT"DO. [201]'LL SUGGEST MESSAGES AT FIRST. 730 [153]"LISTRIGHT$F YOU HAVE A QUESTION WHILE YOU'RE 735 PRINT"INSIDE THE HOUSE, TYPE [200][197][204][208][155].":RETURN 799 A$="":POKE198,0:POKE204,0:POKE647,PEEK(646) 800 I9=LEN(A$):WAIT198,7:GETN$:I=ASC(N$):IFI9>30THENI=13:A$="X" 802 IFI=13ANDI9>0THENPOKE204,1:PRINT" ";:RETURN 805 IFI=20ANDI9>0THENA$=LEFT$(A$,I9-1):PRINTN$; 810 IFI>90OR(I<65ANDI<>32)THEN800 815 A$=A$+N$:PRINTCHR$(I+128);:GOTO800 1010 R6=1:R7=3:R8=3:R9=R6*R7*R8:R0=R9-R8+1:R=R0:V9=20:N9=31:M9=25 1025 DIMV$(V9),N$(N9),L(M9),N1(M9),W(M9),W4(R9),W4$(R9) 1030 DIMW1((R6*R7+1)*R8),W2(R9+1),W1$(3),W2$(3),W3$(9) 1035 T=2:T1=0:T9=72:C=0:C9=4 1040 I=RND(-TI) 1045 Q9=4:B9=4:DIMQ$(Q9),B$(B9) 1110 FORI=1TOV9:READV$(I):NEXT 1115 DATATAKE,GET,GRAB,PICK,DROP,GIVE,OFFER,DEPOSIT,KICK,CONSULT,OPEN,UNLOCK 1125 DATAFILL,LIST,VALUE,SIT,DRINK,HELP,GO,LOOK 1210 FORI=1TON9:READN$(I):NEXT 1215 DATAN,S,E,W,NORTH,SOUTH,EAST,WEST,DOOR,CHAIR,RABBIT,BOWL,COUPON,WRAPPER,MAP 1225 DATAKEY,EGG,COIN,JEWEL,CATALOG,VASE,MILK,BANKER,CAT,WORDS 1230 DATAINVENTORY,SCORE,WATCH,CHULA,KLINKOYN,NELLAN 1320 FORJ=1TO9:W3$(J)="[166][166][166]":NEXT 1420 FORI=0TO3:READW1$(I),W2$(I):NEXT 1430 DATA"[166][166][166] [146][166][166][166]","  [146] " 1440 DATA"[166][166][166][166][166][166][166][166]","[166][166][166]" 1450 DATA"[166][166][166] [166][166][166]"," " 1460 DATA"[166][166][166][169][169][166][166][166]"," [169] " 1510 FORI=0TO9:READW4$(I):W4(I)=0:NEXT 1515 DATA" ? " 1520 DATA" [207]FFICE "," [205]ILK "," [211]TORE " 1525 DATA" [215]HITE "," [199]OLD "," [200]OT " 1530 DATA" [194]ANK "," [199]REEN "," [195]AT " 1610 FORI=1TO(R6*R7+1)*R8:READW1(I):NEXT 1615 DATA1,1,1,-2.5,-2,-1,-2,-1,-2,1,1,1 1710 FORI=1TOR9+1:READW2(I):NEXT 1715 DATA1,-1,-2.5,1,-2,-2,1,1,-2,1 1810 FORM=1TOM9:READL(M),N1(M):W(M)=0:NEXT 1815 DATA1,20,6,13,0,12,0,12,0,12,2,9,3,0,0,0,7,23,1,16,9,24,0,24,0,24,0,24,0,11 1825 DATA0,11,0,11,4,11,7,15,2,14,1,0,8,18,0,17,3,19,0,21 1830 FORI=22TO25:W(I)=25:NEXT 1910 FORI=1TOQ9:READQ$(I):NEXT 1915 DATA"[215]HAT ARE YOU GOING TO DO NOW","[215]HAT NOW" 1920 DATA"[215]HAT DO YOU CHOOSE TO DO","[215]HAT IS YOUR DECISION" 1925 FORI=1TOB9:READB$(I):NEXT 1930 DATAHAPPY,"GLAD TO SEE YOU",BUSY,SLEEPY 1995 RETURN 2010 PRINT"[158][215]ELL, "P$(P)", YOU ARE IN THE [207]FFICE." 2011 PRINT"[217]OU ARE STANDING NEXT TO A [195][200][193][201][210] WHICH 2012 [153]"IS NEXT TO A DESK IN A ROOM WITH YELLOW 2013 PRINT"WALLS AND BROWN CARPET. 2015 [153]"(null)HERE IS A DOOR IN THE SOUTH WALL.":[142] 2020 [153]"(null)HIS IS THE (null)ILK (null)OOM. RIGHT$F YOU HAVE A 2021 PRINT"[194][207][215][204], YOU CAN SAY [198][201][204][204] [194][207][215][204] OR [199][197][212] [205][201][204][203] 2022 [153]"AND HAVE YOUR PEEK(null)(null)(null) FILLED WITH NICE 2023 PRINT"COLD [205][201][204][203]. [212]HERE ARE DOORWAYS TO 2024 [139]L(15)[178][171]1[175]L(6)[178]2[167]L(18)[178]0:L(17)[178]2 2025 [153]"THE SOUTH AND EAST.":[142] 2030 [153]"OPEN(null)OU ARE IN THE (null)TORE.":[142] 2040 [153]"CLR(null)OW YOU ARE IN THE (null)HITE (null)OOM TANTAN THE 2041 PRINT"WALLS ARE WHITE. [212]HERE IS A WALL TO 2042 [153]"THE WEST. (null)OU KNOW THAT THE PEEKANK IS 2043 PRINT"THROUGH THE SOUTH DOORWAY. [212]HERE'S A 2044 [153]"DOOR TO THE NORTH AND A DOORWAY TO THE EAST.":[142] 2050 [153]"SYSATNLL THE WALLS IN THIS ROOM ARE PAINTED 2051 PRINT"GOLD. [212]HERE ARE EXITS TO THE NORTH, 2052 [153]"EAST AND WEST.":[139]L(15)[178][171]1[175]L(23)[178]0[167]2054 2053 [142] 2054 L(15)[178]0:L(16)[178]5:L(23)[178]5:[142] 2060 [153]"SYS(null)H, IT'S HOT IN HERE! (null)OU ARE IN THE 2061 PRINT"[200]OT [210]OOM AND IF COLD [205][201][204][203] WERE IN THIS 2062 [153]"ROOM, IT WOULD BE WARMED." 2063 [153]"(null)HE (null)ATN(null) SHOWS THE DOORWAYS.":[139]L(4)[178][171]1[167]L(4)[178]0:L(5)[178][171]1 2064 [142] 2070 [153]"LIST(null)OU ARE IN A ROOM CALLED THE PEEKANK. 2071 PRINT"[193] GIANT CARPET ON THE FLOOR SAYS: 2072 [153]"DEF (null)ELCOME "P$(P)"WAITLIST. 2073 PRINT"[193] SCREEN SAYS THAT YOUR VISIT WILL LAST 2074 [153]"FOR"T9"SCOOTS. "T"SCOOTS HAVE PASSED. 2075 PRINT"[212]O LEAVE THIS ROOM, TYPE [199][207][160][206][207][210][212][200].":RETURN 2080 PRINT"[217]OU ARE STANDING IN A ROOM WITH GREEN 2081 [153]"WALLS. ATN GREEN LENLEFT$ATNRIGHT$(null) IS IN THE CORNER. 2083 IFW1(4)<0THENRETURN 2084 PRINT"[193] SIGN HERE SAYS: [205]AGIC WORKS ":PRINTTAB(17)" IN THE " 2085 PRINTTAB(17)"[197]NCHANTED [200]OUSE[146]":RETURN 2090 PRINT"[149][217]OU ARE IN THE ROOM WHERE [206]ELLAN LIVES;" 2091 PRINT"THIS ROOM IS CALLED THE [195]AT [210]OOM.":RETURN 2410 PRINT"[212]HERE IS A COLLEGE [195][193][212][193][204][207][199] FROM THE 2411 [153]"(null)NIVERSITY OF (null)EXAS HERE.":[142] 2420 [153]"(null)N THE FLOOR IS A LEN(null)(null)(null)(null)(null). RIGHT$T SAYS ON 2421 PRINT"THE [195][207][213][208][207][206] THAT IF IT IS [196][210][207][208]PED IN THE 2422 [153]"(null)TORE WHILE THE MACHINE IS WORKING, YOU 2423 PRINT"WILL RECEIVE ONE BLUE BOWL.":RETURN 2430 PRINT"[212]HERE IS A CLEAN EMPTY BLUE [194][207][215][204] HERE.":RETURN 2440 PRINT"[212]HE [194][207][215][204] OF COLD [205][201][204][203] IS HERE.":RETURN 2450 PRINT"[212]HERE IS A BLUE [194][207][215][204] WITH WARM [205][201][204][203].":RETURN 2460 RETURN 2470 PRINT"[201]N A CORNER OF THE ROOM IS A GIGANTIC 2471 [153]"MACHINE. ATN MECHANICAL VOICE SAYS: 2472 PRINT"<< [196][197][208][207][211][201][212][160][195][207][213][208][207][206][211][160][200][197][210][197] >>.":RETURN 2480 PRINT"[212]HE MACHINE IN THE CORNER HAS A 2481 [153]"FLASHING SIGN ANNOUNCING: (null)(null)(null)CLOSE(null)ASCCLOSEPEEK(null)(null)(null)(null)WAIT.":[142] 2490 [153]"(null)HE PEEKATN(null)(null)VAL(null), (null)R. (null)LINKOYN, LOOKS "B$(1[170]B9[172][187](1))". 2491 IFL(23)=R0THENPRINT"[212]YPE [211][195][207][210][197] TO CHECK YOUR SCORE." 2494 RETURN 2500 PRINT"[212]HERE IS AN OLD BRASS [203][197][217] HERE.":RETURN 2510 PRINT"[206]ELLAN THE [195][193][212] IS HERE. [211]HE NEARLY 2511 [153]"FILLS UP THE ROOM BECAUSE SHE'S AS BIG 2512 PRINT"AS AN ELEPHANT (REALLY!!). [201]N A SOFT 2513 [153]"POLITE VOICE SHE SAYS: << RIGHT$'D LOVE TO 2514 PRINT"HAVE SOME NICE COLD [205][201][204][203]. [205]ANY OF MY 2515 [153]"FRIENDS HAVE TRIED TO DELIVER COLD (null)RIGHT$(null)(null) 2516 PRINT"HERE AND MANY HAVE FAILED. [208]ERHAPS 2517 [153]"YOU, "P$(P)", WOULD BE KIND ENOUGH TO 2518 PRINT"TRY. [201] MUST WARN YOU: [201]T WILL NOT BE 2519 [153]"EASY. >>":[142] 2520 [153]"(null)ELLAN PURRS AND SAYS: << (null)HANK YOU 2521 PRINT"FOR THIS NICE [205][201][204][203]. [201]T'S A PITY THAT 2525 [153]"IT'S SO WARM. >>":L(5)[178]0:L(3)[178]9:L(12)[178]0:L(11)[178]9:[142] 2530 [153]"(null)OW! (null)ELLAN IS PURRING VERY, VERY 2531 PRINT"LOUDLY. [211]HE LOOKS AT YOU AND SAYS: 2532 [153]"<< "P$(P)", YOU'VE MADE ME SO HAPPY. 2533 PRINT"[201] KNOW THAT IT WASN'T EASY TO GET THIS 2534 [153]"PEEK(null)(null)(null) OF COLD (null)RIGHT$(null)(null) TO ME. (null)OU DID IT! 2535 L(4)=0:L(3)=9:L(13)=0:L(14)=9:IFL(25)<>0THENRETURN 2536 PRINT"[208]LEASE ACCEPT THIS SMALL PRESENT. >>":L(25)=9 2537 PRINT"[211]HE OFFERS YOU A SMALL "N$(21)".":RETURN 2540 PRINT"[206]ELLAN IS NAPPING. [211]HE'S QUITE HAPPY.":RETURN 2550 PRINT"[195]HULA THE WHITE [210][193][194][194][201][212] IS HERE AND 2551 [153]"SHE SAYS: << (null)ELL, MY FRIEND "P$(P)", 2552 PRINT"[201] HOPE THAT YOU ARE ENJOYING YOUR 2553 [153]"ADVENTURE. >>":[142] 2560 [153]"LENHULA HOPS OUT OF YOUR ARMS AND 2561 PRINT"SCURRIES OFF. [211]HE RETURNS AND SAYS: 2562 [153]"<< (null)LEASE (null)ATN(null)VAL THIS GOLDEN VALCHR$CHR$ THAT RIGHT$ 2563 PRINT"HID HERE IN THE [199]OLD [210]OOM. >>":L(23)=5:L(15)=5:L(16)=0:C=C-1:RETURN 2570 PRINT"[195]HULA HOPS DOWN AND GOBBLES A GROWTH 2571 [153]"OF CARROTS THAT WAS BLOCKING THE EAST 2572 PRINT"DOORWAY. [211]HE SMILES AND SAYS: 2573 [153]"<< (null)HANKS, FRIEND "P$(P)". >> 2574 L(17)=0:L(15)=2:L(6)=0:C=C-1:RETURN 2580 PRINT"[193] WHITE [210][193][194][194][201][212] IS HERE. [211]HE HOPS TO 2581 [153]"YOU AND SAYS: << RIGHT$ AM LENHULA. (null)ELCOME 2582 PRINT"TO THE [197]NCHANTED [200]OUSE, MY FRIEND, 2583 [153]P$(P)". >> (null)HE HUGS YOU AND SAYS: 2584 PRINT"<< [201] HAVE A PRESENT FOR YOU IN THE [199]OLD 2585 [153]"(null)OOM. RIGHT$F YOU SAY (null)ATN(null)VAL (null)ATNPEEKPEEKRIGHT$(null), THEN YOU 2586 PRINT"CAN CARRY ME TO THE [197][193][211][212]. >>":L(18)=0:L(15)=4:RETURN 2590 PRINT"[212]HERE IS A MAGIC [205][193][208] HERE. [201]F YOU [212][193][203][197] 2591 [153]"THE (null)ATN(null), YOU MAY LEN(null)(null)(null)(null)(null)(null) THE (null)ATN(null).":[142] 2600 [153]"ATNN OLD GUM WRAPPER IS ON THE FLOOR.":[142] 2610 [142] 2620 [153]"ATN HEAVY LEN(null)RIGHT$(null) IS HERE.":[142] 2630 [153]"ATN GOLDEN VALCHR$CHR$ IS ON THE FLOOR.":[142] 2640 [153]"(null)N THE FLOOR IS A MID$VAL(null)VAL(null).":[142] 2650 [153]"ATN MAGNIFICENT (null)ATN(null)VAL IS HERE.":[142] 3505 [139]A$[178]"EXTEND TIME"[167]T9[178]T9[170]24:N[178]28:[137]5315 3995 [137]365 4015 [139]V[178]0[176]N[178]0[167]M[178]0:[142] 4020 [139]N[178]24[167][139]L(11)[178]9[167]M[178]11:[142] 4021 [139]N[178]24[167]M[178]14:[142] 4025 [129]I[178]1[164]M9:[139]N1(I)[178]N[167]M[178]I:[142] 4026 [130]I 4030 M[178]0:[139]N[179][177]22[175]N[179][177]12[167][142] 4035 [129]J[178]3[164]5:[139]L(J)[179][177]0[167]M[178]J 4036 [130]:[142] 4045 [139]L(M)[178]R[175]C[179]C9[167]4075 4046 [139]C[177][178]C9[167]4055 4050 [153]"(null)OU'VE STILL GOT THE "N$".":[137]4140 4055 [153]"(null)OU CAN ONLY CARRY"C9"OBJECTS (NOT 4056 PRINT"COUNTING THE [215][193][212][195][200]) AND YOU ARE ALREADY 4057 [153]"CARRYING THAT MUCH. RIGHT$F YOU WANT TO CHR$VAL(null) 4058 PRINT"SOMETHING ELSE, YOU WILL HAVE TO [196][210][207][208] 4059 [153]"SOMETHING FIRST.":[137]4140 4075 [139]W(M)[178]0[167]4090 4076 [153]"LENONGRATULATIONS, "P$(P)", YOU'LL EARN 4077 PRINT"POINTS WHEN THE "N$" IS [196][197][208][207][211][201][212]ED 4078 [153]"IN THE PEEKANK.":C[178]C[170]1:L(M)[178][171]1:[142] 4090 [153]"(null)(null), YOU ARE CARRYING THE "N$".":L(M)[178][171]1:C[178]C[170]1:[142] 4100 [139]L(M)[178][171]1[167][153]"(null)(null).":L(M)[178]R:C[178]C[171]1:[137]4105 4101 [137]4135 4105 [139]R[178]R0[167][141]5175 4110 [139]R[179][177]3[175]R[179][177]9[167][142] 4115 [139]L(2)[178]3[167]L(2)[178]0:L(3)[178]3:L(7)[178]0:L(8)[178]3 4120 [139]L(4)[178]9[167]L(4)[178]0:L(3)[178]9:L(11)[178]0:L(13)[178]9 4125 [139]L(5)[178]9[167]L(5)[178]0:L(3)[178]9:L(11)[178]0:L(12)[178]9 4130 [142] 4135 [153]"(null)OU DON'T HAVE THE "N$". 4140 PRINT"[212]O SEE A LIST OF WHAT YOU'RE CARRYING, 4145 [153]"TYPE RIGHT$(null)(null)VAL(null)(null)(null)(null)(null).":[142] 4505 [151]53281,1:[153]"LOADPOKE(null)OU ARE IN THE"W4$(R)"(null)OOM NOW. 4510 PRINTTAB(37)"[206][157][157][157][215] + [197][157][157][157][211] 4520 I2[178]R7[172]R8:[129]I1[178]1[164]R6 4525 [139](I1[171]1)[172]I2[179]R[175]R[179][178]I1[172]I2[167]4530 4526 [130] 4530 K0[178](I1[171]1)[172]I2:K9[178]I1[172]I2:K[178]K0:J[178]1 4535 [139]K[178]K0[175]J[178]1[167][153]W3$(7); 4540 [139]K[178]K0[175]J[177]1[175]J[179]R8[170]1[167][153]W3$(8); 4545 [139]K[178]K0[175]J[178]R8[170]1[167][153]W3$(9) 4550 [139]K[177]K0[175]K[179]K9[175]J[178]1[167][153]W3$(4); 4555 [139]K[177]K0[175]K[179]K9[175]J[177]1[175]J[179]R8[170]1[167][153]W3$(5); 4560 [139]K[177]K0[175]K[179]K9[175]J[178]R8[170]1[167][153]W3$(6) 4565 [139]K[178]K9[175]J[178]1[167][153]W3$(1); 4570 [139]K[178]K9[175]J[177]1[175]J[179]R8[170]1[167][153]W3$(2); 4575 [139]K[178]K9[175]J[178]R8[170]1[167][153]W3$(3) 4580 [139]J[177]R8[167]4595 4585 [139]W1(K[170]J)[177]0[167][153]W1$(W1(K[170]J));:[137]4590 4586 [153]W1$(0); 4590 J[178]J[170]1:[137]4535 4595 [139]K[178]K9[167][142] 4596 J[178]1 4600 [139]W2(K[170]J)[177]0[167][153]W2$(W2(K[170]J));:[137]4605 4601 [153]W2$(0); 4605 [139]J[177]R8[167][153]:[137]4620 4610 [139]W4(K[170]J)[177]0[167][153]W4$(K[170]J);:[137]4615 4611 [153]W4$(0); 4615 J[178]J[170]1:[137]4600 4620 K[178]K[170]R8:J[178]1:[137]4535 5015 [139]R[179][177]1[167]5040 5016 [139]L(10)[178][171]1[167]5030 5020 [153]"(null)HE DOOR IS LOCKED AND YOU'RE NOT":[153]"CARRYING THE KEY.":W1(4)[178]3.5:[137]305 5030 W1(4)[178]2.5:R[178]4:[137]605 5040 [139]R[179][177]2[167]5070 5041 [139]L(6)[179][177]2[167]5060 5045 [153]"(null)OU CANNOT ENTER TANTAN THE DOORWAY IS 5050 PRINT"BLOCKED BY A THICK GROWTH OF CARROTS.":W2(3)=3.5:GOTO305 5060 R=3:W2(3)=2.5:GOTO605 5070 IFR=4ANDL(10)<>-1THEN5020 5071 IFR=4THEN5080 5073 IFR>4THEN365 5075 R=2:GOTO605 5080 W1(4)=2.5:R=1:GOTO605 5105 PRINT"[217]OUR [215][193][212][195][200] STAYS ON YOUR WRIST FOR THE 5106 [153]"WHOLE VISIT.";:[139]C[178]0[167][153]" (null)OU AREN'T CARRYING ANY- THING ELSE.":[142] 5115 [153]" LEFT$ERE IS AN INVENTORY OF":[153]"WHAT YOU'RE CARRYING: 5120 FORJ=1TOM9:IFL(J)=-1THENPRINTTAB(15);N$(N1(J)) 5125 NEXT:RETURN 5155 GOSUB5175:PRINT"[217]OU HAVE"I"POINTS OUT OF 100. 5160 [153]"(null)OU EARN POINTS BY STR$VAL(null)(null)(null)RIGHT$(null)ING VALUABLE 5165 PRINT"THINGS IN THE [194]ANK.":RETURN 5175 I=0:FORJ=1TOM9:IFL(J)=R0THENI=I+W(J) 5180 A$="":IFP9>1THENA$="ALL " 5185 NEXTJ:IFI<100THENRETURN 5190 PRINT"[205]R. [203]LINKOYN SHOUTS: [150]<< [217]OU "A$"WON! [150]>>":GOTO620 5205 PRINT"[203]ICKING "N$" DOES NOT HELP.":GOTO305 5255 IFNOT(N=11ORN=23ORN=24)THEN5305 5260 IFL(6)=0THEN5275 5265 PRINT"[212]HE "N$(N1(M))" LAUGHS AND SAYS: 5266 [153]"<< (null)ELL, "P$(P)", DID YOU KNOW THAT 5270 PRINT"RABBITS ARE VERY FOND OF CARROTS. >>":GOTO305 5275 ON2-W4(1)GOTO5280,5290 5280 PRINT"[212]HE "N$(N1(M))" SAYS: << "P$(P)", 5285 [153]"RIGHT$ THINK THAT YOU'RE DOING GREAT. >>":[137]305 5290 [153]"(null)HE "N$(N1(M))" SMILES MYSTERIOUSLY AND 5295 PRINT"SAYS: << [201] RECOMMEND THAT YOU [211][201][212] IN 5296 [153]"THE LENLEFT$ATNRIGHT$(null). >>":[137]305 5305 [139]N[178]15[167][141]4505:[137]305 5310 [139]N[178]20[167][153]"RIGHT$T DOESN'T HELP HERE.":[137]305 5315 [139]N[178]28[167][153]T"SCOOTS HAVE PASSED AND"T9[171]T"SCOOTS":[153]" REMAIN.":[137]305 5325 [137]5980 5355 [139]N[178]9[167]5015 5356 [137]5980 5405 [139]N[179][177]12[175]N[179][177]24[167]5980 5406 [139]N[178]24[167]V[178]5:N[178]12:[137]435 5410 [139]R[179][177]2[176]L(3)[179][177][171]1[167]5425 5411 L(3)[178]0:L(4)[178][171]1 5415 [153]"CHR$LUG, GLUG, PLINK. (null)OUR PEEK(null)(null)(null) HAS COLD 5420 PRINT"[205][201][204][203] IN IT NOW.":GOTO305 5425 IFN=22ANDM=3THENPRINT"[212]HE [194][207][215][204] IS EMPTY.":N$="[194][207][215][204]" 5430 IFV<>13ANDL(M)=RTHENGOSUB4045:GOTO305 5435 IFM=4ORM=5THENPRINT"[212]HE [194][207][215][204] IS STILL FULL OF [205][201][204][203]." 5440 IFR<>2THENPRINT"[212]HE [205]ILK [210]OOM HAS LOTS OF [205][201][204][203]. 5445 [139]L(M)[177][171]1[176]M[179]3[176]M[177]5[167][153]"(null)OU NEED A PEEK(null)(null)(null). 5450 GOTO305 5605 IFN<>25THEN5980 5606 PRINT"[201] KNOW THESE VERBS: "; 5610 FORI=1TOV9:A$=V$(I):GOSUB5655:NEXT 5615 PRINT"[201] KNOW THESE NOUNS: "; 5620 FORI=1TO28:A$=N$(I):GOSUB5655:NEXT:GOTO305 5655 PRINTA$;:IFA$=V$(V9)ORA$=N$(28)THENPRINT".":RETURN 5665 PRINT", ";:IFPOS(1)>32THENPRINT 5666 RETURN 5705 IFM=0THEN5980 5706 PRINT"[212]HE "N$" IS WORTH"W(M)"POINTS.":IFW(M)<>0THEN305 5710 PRINT"[200]OWEVER, IT MIGHT BE USEFUL AS A TOOL." 5720 IFN=11ORN=23THENPRINT"[198]RIENDS ARE VALUABLE." 5725 IFN=20THENPRINT"[193] UNIVERSITY EDUCATION IS A WORTHWHILE 5730 [139]N[178]20[167][153]"AND STIMULATING EXPERIENCE. 5735 GOTO305 5755 IFN<>10THEN5980 5756 IFR=1ORR=8THENR=9-R:GOTO605 5760 PRINT"[212]HERE'S NO [195][200][193][201][210] IN HERE.":GOTO305 5780 IFN<>22THEN5980 5781 IFL(4)=-1ORL(5)=-1THEN5790 5785 PRINT"[217]OU ARE NOT CARRYING ANY [205][201][204][203].":GOTO305 5790 PRINT"[199]LUG, GLUG.":L(4)=0:L(5)=0:L(3)=-1:GOTO305 5805 PRINT"[147][204]OST? . . . . . . . . . [195][207][206][211][213][204][212][160][205][193][208] 5810 [153]"(null)ANT ROOM DESCRIBED? . (null)(null)(null)(null) 5820 PRINT"[215]ANT TO MOVE? . . . . . [199][207] DIRECTION 5825 [153]"(null)HAT'S A THING WORTH? . (null)ATN(null)(null)VAL THING 5835 PRINT"[215]ANT A HINT? . . . . . [195][207][206][211][213][204][212] FRIEND 5850 [153]"(null)HAT TO DO? . . . . . . TRY THINGS":[137]305 5980 [139]N$[178]V$[167][153]"(null)OU'LL NEED TO USE TWO WORDS.":[137]305 5982 [153]"(null)HE "N$" IS HARD TO "V$".":[137]305 6000 [151]53280,I:[151]53281,I:[142]